|
600
|
How can I display minutes
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.Level(0).Label = 65536
oG2antt.Chart.Level(1).Label = 1048576
|
|
599
|
How can I display seconds, from 15 to 15
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 1048576
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%ss%>"
var_Level.Count = 15
|
|
598
|
How can I display seconds
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 1048576
oG2antt.Chart.Level(1).Label = "<%ss%>"
|
|
597
|
How can I display seconds
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 1048576
oG2antt.Chart.Level(1).Label = 16777216
|
|
596
|
How can I align the text being shown in the chart's header
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<b><%mmmm%></b> <r><%m%>"
var_Level.Unit = 16
var_Level.Alignment = 0
|
|
595
|
How can I hide the tooltip being displayed in the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Level(0).ToolTip = ""
|
|
594
|
How can I change the tooltip being displayed in the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level"
|
|
593
|
How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.BackColorLevelHeader = 16777216 /*0x1000000*/
|
|
592
|
How can I change the level's foreground color in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).ForeColor = RGB(255,0,0)
oG2antt.Chart.Level(1).ForeColor = RGB(0,0,255)
|
|
591
|
How can I change the level's background color in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).BackColor = RGB(255,0,0)
|
|
590
|
How can I save data on XML format
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.LoadXML("http://www.exontrol.net/testing.xml")
oG2antt.SaveXML("c:/temp/exg2antt.xml")
|
|
589
|
How can I load data on XML format
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.LoadXML("http://www.exontrol.net/testing.xml")
|
|
588
|
How can I add icons or pictures to the scale or zoom area
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 52
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0,false)
|
|
587
|
How can I add icons or pictures to the scale or zoom area
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 52
|
|
586
|
How can I change the width of the unit in the scale or zoom
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 24
|
|
585
|
How can I a scale or zoom of the chart, when right clicking the chart's header
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 64
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0,false)
|
|
584
|
How can I a customize the scale or zoom of the chart
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 64
|
|
583
|
How can I a scale or zoom the chart at runtime
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
|
|
582
|
How can I a scale or zoom the chart at runtime
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomUnit = 24
|
|
581
|
How can I a programmatically select a date
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.MarkSelectDateColor = RGB(255,0,0)
oG2antt.Chart.SelectLevel = 0
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.SelectDate(2001-01-02,true)
oG2antt.Chart.SelectDate(2001-01-05,true)
|
|
580
|
How can I change the color to select a date, when clicking the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.BackColor = RGB(255,255,255)
oG2antt.Chart.MarkSelectDateColor = RGB(255,0,0)
|
|
579
|
How can I enable or disable selecting a date, when clicking the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.BackColor = RGB(255,255,255)
oG2antt.Chart.MarkSelectDateColor = RGB(255,255,255)
|
|
578
|
How can I specify the color or the stype for non working hours
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitScale = 65536
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.NonworkingHours = 127
oG2antt.Chart.NonworkingHoursPattern = 12
oG2antt.Chart.NonworkingHoursColor = RGB(255,0,0)
|
|
577
|
How can I specify the pattern or the stype for non working hours
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitScale = 65536
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.NonworkingHours = 127
oG2antt.Chart.NonworkingHoursPattern = 7
|
|
576
|
How can I specify the non working hours
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitScale = 65536
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.NonworkingHours = 127
|
|
575
|
How can I get the index of the level from the point or cursor
OleObject oG2antt
any var_LevelFromPoint
oG2antt = ole_1.Object
var_LevelFromPoint = oG2antt.Chart.LevelFromPoint(0,0)
|
|
574
|
How can I get the link from the point or cursor
OleObject oG2antt
any var_LinkFromPoint
oG2antt = ole_1.Object
var_LinkFromPoint = oG2antt.Chart.LinkFromPoint(0,0)
|
|
573
|
How can I disable or enable at runtime linking the bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.AllowLinkBars = true
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04,"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-06,2001-01-14,"B2")
|
|
572
|
How can I check or verify if a date is a non working day
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add(String(oG2antt.Chart.IsNonworkingDate(2001-01-01)))
|
|
571
|
How can I check or verify if a date fits the chart's visible area
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add(String(oG2antt.Chart.IsDateVisible(2001-01-01)))
|
|
570
|
How can I add a remove all non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.AddNonworkingDate(2001-01-01)
oG2antt.Chart.ClearNonworkingDates()
|
|
569
|
How can I add a remove a non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.AddNonworkingDate(2001-01-01)
oG2antt.Chart.RemoveNonworkingDate(2001-01-01)
|
|
568
|
How can I add a custom non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.AddNonworkingDate(2001-01-01)
oG2antt.Chart.AddNonworkingDate(2001-01-05)
|
|
567
|
How can hide the non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ShowNonworkingDates = false
|
|
566
|
How can hide the non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 0
|
|
565
|
How can I let user adds new bars at runtime
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.AllowCreateBar = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
|
564
|
How can I change the width of the links between bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.LinksStyle = 0
oG2antt.Chart.LinksWidth = 2
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04,"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-06,2001-01-14,"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
563
|
How can I change the style for the links between bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.LinksStyle = 4
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04,"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-06,2001-01-14,"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
562
|
How can I change the color for the links between bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.LinksColor = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04,"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-06,2001-01-14,"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
561
|
How can I hide the links between bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04,"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-06,2001-01-14,"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
oG2antt.Chart.ShowLinks = false
|
|
560
|
How can I display some grid line in the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewLevelLines = 0
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-06,2001-01-14)
|
|
559
|
How do I change the tooltip when the cursor hovers the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewToolTip = "Tooltip on the overview"
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-06,2001-01-14)
|
|
558
|
How do I remove the tooltip when the cursor hovers the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewToolTip = ""
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
557
|
How do I change the selection color in the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewSelBackColor = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
556
|
How do I change the background color for the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewBackColor = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
555
|
How do I specify the height for the overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewHeight = 16
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
554
|
How do I show or hide the control's overview area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
553
|
How do I enable or disable resizing the bars at runtime
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.BarsAllowSizing = false
|
|
552
|
How do I get the bar from the point or cursor
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(oG2antt.ItemFromPoint(-1,-1,c,h)) ))
MessageBox("Information",string( String(oG2antt.Chart.BarFromPoint(-1,-1)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-04,2001-01-06,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()
|
|
551
|
How do I specify the color of pattern for non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 66
oG2antt.Chart.NonworkingDaysPattern = 8
oG2antt.Chart.NonworkingDaysColor = RGB(255,0,0)
|
|
550
|
How do I specify the type of pattern for non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 66
oG2antt.Chart.NonworkingDaysPattern = 11
|
|
549
|
How do I specify the non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 66
|
|
548
|
How do I specify the non working days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.NonworkingDays = 66
|
|
547
|
How do I add a predefined bar
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Add("CustomBar").Color = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"CustomBar",2001-01-02,2001-01-04)
|
|
546
|
How do I change the unit being displayed in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.UnitScale = 256
oG2antt.Chart.UnitWidth = 64
|
|
545
|
How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Label(1,"")
oG2antt.Chart.Label(2,"")
oG2antt.Chart.Label(16,"<%m3%>")
oG2antt.Chart.LabelToolTip(16,"Tooltip: <%mmmm%>")
oG2antt.Chart.Zoom(2007-01-01,2008-01-01)
oG2antt.Chart.FirstVisibleDate = 2007-01-01
|
|
544
|
How do I specify the prodefined labels being displayed on the chart, when Zoom method is used
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Label(1,"")
oG2antt.Chart.Label(2,"")
oG2antt.Chart.Label(16,"<%m3%>")
oG2antt.Chart.Zoom(2007-01-01,2008-01-01)
oG2antt.Chart.FirstVisibleDate = 2007-01-01
|
|
543
|
How do I scale or zoom the chart to a specified range of date
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Label(1,"")
oG2antt.Chart.Label(2,"")
oG2antt.Chart.Label(16,"<%m3%>")
oG2antt.Chart.Zoom(2007-01-01,2008-01-01)
oG2antt.Chart.FirstVisibleDate = 2007-01-01
|
|
542
|
How do I scale or zoom the chart to a specified range of date
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Zoom(2007-01-01,2007-07-01)
oG2antt.Chart.FirstVisibleDate = 2007-01-01
|
|
541
|
How do I find the next date or previous date
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = var_Chart.NextDate(2002-01-01,4096,1)
|
|
540
|
How can I change the color for the grid lines in the chart
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.DrawGridLines = -1
oG2antt.Chart.LevelCount = 2
var_Level = oG2antt.Chart.Level(1)
var_Level.DrawGridLines = true
var_Level.GridLineColor = RGB(255,0,0)
|
|
539
|
How can I draw, show or hide the grid lines in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.DrawGridLines = -1
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(1).DrawGridLines = true
|
|
538
|
How do I change the color to highlight the today in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.MarkTodayColor = RGB(255,0,0)
|
|
537
|
How do I hide or stop highlighting the today area in the chart
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.MarkTodayColor = var_Chart.BackColor
|
|
536
|
Is there any function to get the date in the format that I use for levels, to layout my chart's header
OleObject oG2antt
any h
oG2antt = ole_1.Object
h = oG2antt.Chart.FormatDate(2002-01-01,"<%yyyy%> <%mmmm%> <%d%> <%dddd%>")
oG2antt.Columns.Add(String(h))
|
|
535
|
How can I get the date from the point, cursor
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(oG2antt.Chart.DateFromPoint(-1,-1)) ))
*/
/*end event MouseMove*/
OleObject oG2antt
oG2antt = ole_1.Object
|
|
534
|
How can I show or hide the small ticker that shows up when the cursor hovers the chart area
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.DrawDateTicker = true
|
|
533
|
How can I change the first visible date in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstVisibleDate = 2002-01-01
|
|
532
|
How can I scroll or ensure that a specified date time is visible in the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstVisibleDate = 2002-01-01
|
|
531
|
How can I scroll or ensure that a specified date time is visible to the right side of the chart or control
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.ScrollTo(2002-01-01,2)
|
|
530
|
How can I scroll or ensure that a specified date time is visible
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.ScrollTo(2002-01-01,2)
|
|
529
|
How can I show or hide the the tooltip being shown when the user scrolls the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ToolTip = ""
|
|
528
|
How can I change the format of the tooltip when the user scrolls the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ToolTip = "ToolTip: <b><%dddd%></b>"
|
|
527
|
How can I hide the chart's scroll bar
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ScrollBar = false
|
|
526
|
How can I specify the first day of the week
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstWeekDay = 1
|
|
525
|
How do I change the AM or PM shortcuts in the chart's header
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.AMPM = "A P"
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<%h%> <%AM/PM%>"
var_Level.Unit = 65536
|
|
524
|
How do I change the name for the months, being displayed in the chart's header
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.MonthNames = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<b><%mmmm%></b>"
var_Level.Unit = 16
|
|
523
|
How do I change the name for the week days, being displayed in the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.WeekDays = "Duminica Luni Marti Miercuri Joi Vineri Simbata"
oG2antt.Chart.Level(0).Label = "<b><%mm%></b>/<%dddd%>"
|
|
522
|
How do I access a level in the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.Level(0).Label = "<b><%mm%></b>/<%dd%>"
|
|
521
|
How can I change the color for the grid lines between the leves in the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.GridLineColor = RGB(255,0,0)
oG2antt.Chart.LevelCount = 2
|
|
520
|
How can I show or hide the grid lines between the leves in the chart's header
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.GridLineColor = RGB(255,0,0)
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.Level(0).DrawTickLines = false
var_Chart.Level(1).DrawTickLines = false
|
|
519
|
How do I change the foreground color for the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ForeColorLevelHeader = RGB(255,0,0)
|
|
518
|
How do I change the background color for the chart's header
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.BackColorLevelHeader = RGB(255,0,0)
|
|
517
|
How do I specify the chart's foreground color
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.ForeColor = RGB(255,0,0)
|
|
516
|
How do I specify the chart's background color
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.BackColor = RGB(255,0,0)
|
|
515
|
How do I put a picture on the center of the chart
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 17
|
|
514
|
How do I resize/stretch a picture on the chart's background
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 49
|
|
513
|
How do I put a picture on the chart's center right bottom side
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 34
|
|
512
|
How do I put a picture on the chart's center left bottom side
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 32
|
|
511
|
How do I put a picture on the chart's center top side
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 1
|
|
510
|
How do I put a picture on the chart's right top corner
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 2
|
|
509
|
How do I put a picture on the chart's left top corner
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 0
|
|
508
|
How do I put a picture on the chart's background
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
|
|
507
|
How to specify the width for the left or side pane
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,128)
|
|
506
|
How do I display the header of the chart using multiple levels, lines
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
|
|
505
|
How do change the width of the chart's area
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(true,256)
|
|
504
|
How do I show or hide the control's chart area
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(true,0)
|
|
503
|
How do I access the chart's area of the control
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,64)
|
|
502
|
How can I select a cells like in excel
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.SingleSel = false
oG2antt.FullRowSelect = 1
oG2antt.MarkSearchColumn = false
oG2antt.SearchColumnIndex = -1
oG2antt.Columns.Add("Column1")
oG2antt.Columns.Add("Column2")
oG2antt.Columns.Add("Column3")
var_Items = oG2antt.Items
var_Items.DefaultItem = var_Items.AddItem(0)
var_Items.CellValue(0,1,1)
var_Items.CellValue(0,2,2)
var_Items.DefaultItem = var_Items.AddItem(3)
var_Items.CellValue(0,1,4)
var_Items.CellValue(0,2,5)
var_Items.DefaultItem = var_Items.AddItem(6)
var_Items.CellValue(0,1,7)
var_Items.CellValue(0,2,8)
|
|
501
|
How can I select a multiple column
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.MarkSearchColumn = false
oG2antt.SingleSel = false
oG2antt.FullRowSelect = 1
oG2antt.Columns.Add("Column1").Selected = true
oG2antt.Columns.Add("Column2")
oG2antt.Columns.Add("Column3").Selected = true
var_Items = oG2antt.Items
var_Items.DefaultItem = var_Items.AddItem(0)
var_Items.CellValue(0,1,1)
var_Items.CellValue(0,2,2)
var_Items.DefaultItem = var_Items.AddItem(3)
var_Items.CellValue(0,1,4)
var_Items.CellValue(0,2,5)
var_Items.DefaultItem = var_Items.AddItem(6)
var_Items.CellValue(0,1,7)
var_Items.CellValue(0,2,8)
oG2antt.Items.SelectAll()
|